home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt32s3.arc / RECEIVK1.PAS < prev   
Pascal/Delphi Source File  |  1985-10-03  |  2KB  |  35 lines
  1. (*----------------------------------------------------------------------*)
  2. (*          Receive_Kermit_File --- Download file using Kermit          *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. OVERLAY PROCEDURE Receive_Kermit_File;
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*     Procedure:  Receive_Kermit_File                                  *)
  10. (*                                                                      *)
  11. (*     Purpose:    Downloads file to PC using Kermit protocol           *)
  12. (*                                                                      *)
  13. (*     Calling Sequence:                                                *)
  14. (*                                                                      *)
  15. (*        Receive_Kermit_File;                                          *)
  16. (*                                                                      *)
  17. (*----------------------------------------------------------------------*)
  18.  
  19. VAR
  20.    Buffer_Pos    : INTEGER;
  21.    Buffer_Size   : INTEGER;
  22.    Write_Count   : INTEGER;
  23.    Err           : INTEGER;
  24.    Menu_Title    : AnyStr;
  25.    Local_Save    : Saved_Screen_Ptr;
  26.    Local_Save_2  : Saved_Screen_Ptr;
  27.    Kermit_Menu   : Menu_Type;
  28.    I             : INTEGER;
  29.    J             : INTEGER;
  30.    Kermit_Done   : BOOLEAN;
  31.    Menu_Choice   : INTEGER;
  32.    Host_Count    : INTEGER;
  33.    Long_Buffer   : BOOLEAN;
  34.    Buffer_Length : INTEGER;
  35.    Write_Buffer  : File_Handle_Buffer_Ptr;